home *** CD-ROM | disk | FTP | other *** search
/ Dynamic HTML Construction Kit / Dynamic HTML Construction Kit.iso / source_code / dhtmlunl / dhtml.exe / CD Content / Chap29 / inputcg.txt next >
Encoding:
Text File  |  1997-12-18  |  370 b   |  15 lines
  1. #!/usr/bin/perl
  2. if ($ENV{'REQUEST_METHOD'} eq 'POST') {
  3. read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
  4. @pairs = split(/&/, $buffer);
  5. foreach $pair (@pairs) {
  6. ($name, $value) = split(/=/, $pair);
  7. $value =~ tr/+/ /;
  8. $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
  9. $value =~ tr/,/ /;
  10. $FORM{$name} = $value;
  11.     }
  12. }
  13.  
  14. print "$FORM{'user_input'}\n";
  15.